program Project1; // Zadanie 3.16

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
  ilosc_liczb = 5;

var
  i, liczba, suma, min, max : Integer;

begin
  Writeln('Program losuje ', ilosc_liczb, ' liczb calkowitych z przedzialu od 0 do 99,');
  Writeln('a nastepnie znajduje najmniejsza i najwieksza oraz');
  Writeln('oblicza srednia ze wszystkich wylosowanych liczb.');
  suma := 0;

  Randomize();
  min := Random(100);
  Writeln;
  Write('Wylosowano liczby: ');
  Write(min, ', ');
  max := min;
  suma := suma+max;

  for i:= 1 to ilosc_liczb-1 do
    begin
      liczba := Random(100);
      if i < ilosc_liczb-1 then
        Write(liczba, ', ')
      else
        Write(liczba, '.');
      if max < liczba then
        max := liczba;
      if liczba < min then
        min := liczba;
      suma := suma+liczba;
    end;

    Writeln;
    Writeln('Najwieksza liczba to ', max, '.');
    Writeln('Najmniejsza liczba to ', min, '.');
    Writeln('Srednia = ', suma/ilosc_liczb:4:2, '.');

  Readln; // czeka na nacisniecie klawisza Enter
end.
